1) PASCAL.PAS[PAS,EJG] and 2) PASASC.PAS[PAS,EJG]	2-05-78 22:45	pages 1,1


**** File 1) PASCAL.PAS[PAS,EJG], Page 9 line 245
1)	  TEMPCORE, SOURCE, LIST, TTYIN : TEXT;
1)	  OBJECT: FILE OF INTEGER;
**** File 2) PASNEW.PAS[PAS,EJG], Page 9 line 245
2)	  TEMPCORE, LIST, TTYIN : TEXT;(*EJGASC*)
2)	  SOURCE : PACKED FILE OF ASCII;(*EJGASC*)
2)	  OBJECT: FILE OF INTEGER;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 12 line 28
1)	       IF EOLN(SOURCE)
1)	       THEN ERRLINE [CHCNT] := '↑'
**** File 2) PASNEW.PAS[PAS,EJG], Page 12 line 28
2)	       IF SOURCE↑ = LF (*EJGASC*)
2)	       THEN ERRLINE [CHCNT] := '↑'
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 15 line 32
1)		GETLINENR(SOURCE,LINENR)
1)	       EXIT IF (LINENR <> '     ') OR EOF(SOURCE);
**** File 2) PASNEW.PAS[PAS,EJG], Page 15 line 32
2)		(*GETLINENR(SOURCE,LINENR)*)LINENR:='-----' (*EJGASC*)
2)	       EXIT IF (LINENR <> '     ') OR EOF(SOURCE);
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 15 line 42
1)		READLN(SOURCE)  (*TO OVERREAD SECOND <LF> IN PAGE MARK*)
1)	       END;
**** File 2) PASNEW.PAS[PAS,EJG], Page 15 line 42
2)		WHILE SOURCE↑ <> LF DO GET(SOURCE); GET(SOURCE) (*EJGASC*)
2)		(*READLN(SOURCE)*) (*EJGASC*)  (*TO OVERREAD SECOND <LF> IN PAGE MARK*)
2)	       END;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 15 line 163
1)	      READLN(SOURCE);
1)	      LINECNT := LINECNT + 10; CHCNT := 0;
**** File 2) PASNEW.PAS[PAS,EJG], Page 15 line 164
2)	      WHILE SOURCE↑ <> LF DO GET(SOURCE); GET(SOURCE) (*EJGASC*)
2)	      (*READLN(SOURCE)*); (*EJGASC*)
2)	      LINECNT := LINECNT + 10; CHCNT := 0;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 29
1)		IF EOLN(SOURCE)
1)		THEN CH := ' '
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 29
2)		IF SOURCE↑ = CR THEN GET(SOURCE); (*EJGASC*)
2)	        IF SOURCE↑ = LF (*EJGASC*)
2)		THEN CH := ' '
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 117
1)		    IF EOLN(SOURCE)
1)		    THEN ENDOFLINE
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 118
2)		    IF SOURCE↑ = LF (*EJGASC*)
2)		    THEN ENDOFLINE
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 133
1)		  IF EOLN(SOURCE)
1)		  THEN ENDOFLINE;
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 134
2)		  IF SOURCE↑ = LF (*EJGASC*)
2)		  THEN ENDOFLINE;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 145
1)		  IF EOLN(SOURCE)
1)		  THEN ENDOFLINE;
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 146
2)		  IF SOURCE↑ = LF (*EJGASC*)
2)		  THEN ENDOFLINE;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 156
1)		IF EOLN(SOURCE)
1)		THEN ENDOFLINE;
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 157
2)		IF SOURCE↑ = LF (*EJGASC*)
2)		THEN ENDOFLINE;
***************


**** File 1) PASCAL.PAS[PAS,EJG], Page 16 line 398
1)			   UNTIL EOLN(SOURCE) OR (CH = '''');
1)			  IF STRINGTOOLONG
**** File 2) PASNEW.PAS[PAS,EJG], Page 16 line 399
2)			   UNTIL (SOURCE↑ = LF) OR (CH = ''''); (*EJGASC*)
2)			  IF STRINGTOOLONG
***************